home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024c.dsk / AD.SCREEN.MASTER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  43 lines
  1. 0  REM  AUGUST AD
  2. 1  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>PLEASE BUY THE PACKAGE<CTRL-M><CTRL-D>RUN AD.MENU
  3. 100  HGR : HCOLOR= 3:X = 192:Y(0) =  RND(I) *59 +24: HPLOT X -8,87 TO 279,87
  4. 110  FOR I = 1 TO 6:Y(I) =  RND(X) *59 +24: HPLOT X,Y(I -1) TO X +14,Y(I):X = X +14: GOSUB 10000: NEXT : TEXT 
  5. 150  HOME : PRINT : INVERSE : PRINT "     SCREEN MASTER     ": PRINT "     VIDEO  OUTPUT     ": PRINT "   CONTROL GENERATOR   ": NORMAL 
  6. 160  PRINT : GOSUB 9000: PRINT " MIX TEXT AND GRAPHICS": PRINT "  MODES ON ONE SCREEN"
  7. 170  PRINT : GOSUB 9000: PRINT " ADD SPLIT SCREEN": PRINT "  IMAGES TO YOUR BASIC": PRINT "  OR ASSEMBLY LANGUAGE": PRINT "  PROGRAMS"
  8. 180  PRINT : GOSUB 9000: PRINT " EASY TO USE FOR": PRINT "  NOVICE AND EXPERT": PRINT "  PROGRAMMERS"
  9. 190  PRINT : GOSUB 9000: PRINT " UNPROTECTED, LISTABLE": PRINT "  AND DOCUMENTED"
  10. 200  PRINT : PRINT : PRINT "  PRESS 'ESC' TO VIEW": PRINT "  SCREEN MASTER MENU";
  11. 210 X = 20: FOR I = 3 TO 11  STEP 2: HTAB 25: VTAB I: PRINT X: HTAB 25: VTAB I +12: PRINT X;:X = X -5: NEXT 
  12. 220  VTAB 13: HTAB 28: PRINT "1 2 3 4 5 6 7"
  13. 250  COLOR= 0:: FOR I = 28 TO 47: HLIN 26,39 AT I: NEXT : COLOR= 2: FOR I = 28 TO 44  STEP 2: PLOT 26,I: NEXT 
  14. 260  FOR I = 0 TO 6: COLOR= I +3: VLIN 46 -((87 -Y(I))/4),45 AT 27 +2 *I: NEXT 
  15. 300  FOR I = 1 TO 1000: NEXT : GOSUB 5000
  16. 320  TEXT : HOME : VTAB 3: PRINT "WELCOME TO SCREEN MASTER VIDEO OUPUT    CONTROL GENERATOR.": PRINT 
  17. 330  PRINT "FUNCTIONS ARE -": PRINT : PRINT "1. DEFINE A VIDEO OUTPUT SCREEN": PRINT "2. SAVE A SCREEN DEFINITION TO DISK": PRINT "3. READ A SCREEN DEFINITION FROM DISK"
  18. 340  PRINT "4. EDIT A SCREEN DEFINITION": PRINT "5. CHANGE ADDRESS FOR A BINARY PROGRAM": PRINT "6. WRITE A BINARY PROGRAM FROM A SCREEN    DEFINITION"
  19. 350  PRINT "7. WRITE AN APPLESOFT SUBROUTINE TO        EXECUTE A BINARY PROGRAM": PRINT "8. KEY TO ABBREVIATIONS": PRINT "9. CATALOG A DISK": PRINT "10. QUIT"
  20. 360  PRINT : PRINT "WHICH, 1 - 10? ";: FLASH : PRINT " ": NORMAL : VTAB 24: PRINT "PRESS 'ESC' TO CONTINUE DEMONSTRATION ";
  21. 370  IF  PEEK( -16384) < >155  THEN 370
  22. 400  POKE  -16368,0: HOME 
  23. 410  VTAB 6: HTAB 12: PRINT "PRESS ARROW KEYS": PRINT : PRINT : INVERSE : PRINT "SCREEN MASTER";: NORMAL : PRINT " REQUIRES APPLESOFT AND AT LEAST 48K RAM": PRINT 
  24. 420  PRINT "CAN BE INTERLEAVED WITH MACHINE LANGUAGEANIMATION, KEYBOARD INPUT AND OTHER     ROUTINES"
  25. 600  VTAB 16: PRINT "MAIL CHECK OR MONEY ORDER FOR $18": PRINT "(OR $5 FOR DEMO DISK)": PRINT : PRINT "RODNEY BURLEIGH": PRINT "447 GRAND AVENUE"
  26. 620  PRINT "ROCHESTER, NY 14609     (716) 288-2172": PRINT : PRINT "PRESS 'ESC' FOR AD.MENU . . .";
  27. 630  POKE 764,39: POKE 763,0: POKE 762,8: POKE 761,37
  28. 635  POKE 771,37: POKE 772,8: POKE 773,8: POKE 774,0
  29. 640  POKE 768,76: POKE 769,128: POKE 770,20
  30. 650  POKE 232,64: POKE 233,17: SCALE= 1: ROT= 0: HGR : DRAW 1 AT 0,17: FOR I = 0 TO 270  STEP 10: HPLOT I,37 TO I +7,33 TO I +9,37: NEXT 
  31. 660  GOSUB 6000
  32. 700  TEXT : PRINT "END OF DEMO."
  33. 710  PRINT  CHR$(4)"RUN AD.MENU"
  34. 720  END 
  35. 5000  REM 
  36. 5030  POKE 767,224: POKE 766,167: POKE 765,8: POKE 760,87: POKE 759,22: POKE 758,82
  37. 5080  CALL 4872: RETURN 
  38. 6000  REM 
  39. 6030  POKE 767,129: POKE 766,128: POKE 765,160: POKE 760,38: POKE 759,152
  40. 6060  REM  HERE GOES!
  41. 6070  CALL 5104: RETURN 
  42. 9000  FLASH : PRINT "*";: NORMAL : RETURN 
  43. 10000  FOR J = 0 TO 200: NEXT : RETURN